home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 9 / Other Examples / Spiral < prev    next >
Text File  |  1994-05-09  |  651b  |  17 lines

  1. { This program draws "polygonal spirals", that is spiral-like
  2.   figures made up of straight line segments.  The angle between
  3.   successive segments is input by the user.  }
  4.  
  5. DECLARE angle   { angle between succesive line segments drawn in the spiral }
  6. DECLARE length  { length of a line segment; increased after each segment }
  7.  
  8. AskUser("What angle do you want to use between successive line segments? (Try values close to, or equal to, 45, 72, 90, 120, and 180; For example: 89.7 or 119.)", angle)
  9.  
  10. length := 0
  11.  
  12. LOOP
  13.    length := length + 0.1
  14.    EXIT IF xcoord < -9 OR xcoord > 9 OR ycoord < -9 or ycoord > 9
  15.    forward(length)
  16.    turn(angle)
  17. END LOOP